Autocad Lisp: Label Lines With Bearings And Distances By Clicking On Any Polyline